home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / programm / ds0257 / lib.exe / ADRESSEN.LIB < prev    next >
Text File  |  1992-02-06  |  2KB  |  129 lines
  1. #IF !LIB4A86
  2. #ELSE
  3. #IF !INTERN_LIB4A86_S
  4. INTERN_LIB4A86_S EQU 01
  5. JMP START
  6. #ENDIF
  7. #ENDIF
  8. #IF !INTERN_MAKE32BITADRESS_S
  9. INTERN_MAKE32BITADRESS_S EQU 01
  10. MAKE32BITADRESS:
  11. PUSH CX
  12. MOV CL,0CH
  13. SHL DX,CL
  14. PUSH AX
  15. MOV CL,04H
  16. SHR AX,CL
  17. ADD DX,AX
  18. POP AX
  19. AND AX,0FH
  20. POP CX
  21. RET
  22. #ENDIF
  23. #IF !INTERN_MAKE20BITVALUE_S
  24. INTERN_MAKE20BITVALUE_S EQU 01
  25. MAKE20BITVALUE:
  26. PUSH CX
  27. MOV CL,04
  28. PUSH DX
  29. SHL DX,CL
  30. ADD AX,DX
  31. POP DX
  32. PUSHF
  33. MOV CL,12XD
  34. SHR DX,CL
  35. POPF
  36. ADC DX,0
  37. POP CX
  38. RET
  39. #ENDIF
  40. NORMALISIEREDS_SI:
  41. PUSH CX
  42. PUSH SI
  43. MOV CL,4
  44. SHR SI,CL
  45. MOV AX,DS
  46. ADD SI,AX
  47. MOV AX,SI
  48. MOV DS,SI
  49. POP SI
  50. AND SI,0FH
  51. POP CX
  52. RET
  53. NORMALISIEREES_DI:
  54. PUSH BP
  55. MOV BP,OFFSET NORMALISIEREDS_SI
  56. JMP >L100
  57. VERGLEICHEADRESSEN:
  58. PUSH BX
  59. CALL NORMALISIEREDS_SI
  60. MOV AX,DS
  61. CALL NORMALISIEREES_DI
  62. MOV BX,ES
  63. CMP AX,BX
  64. JNE >L1
  65. CMP SI,DI
  66. L1:
  67. POP BX
  68. RET
  69. ADDOFFSETTODS_SI:
  70. PUSH CX
  71. PUSH BX
  72. PUSH BX
  73. MOV AX,DS
  74. MOV CL,4
  75. SHR BX,CL
  76. ADD AX,BX
  77. POP BX
  78. JC >L8
  79. AND BX,0FH
  80. ADD SI,BX
  81. MOV DS,AX
  82. CALL NORMALISIEREDS_SI
  83. CLC
  84. L8:
  85. POP BX
  86. POP CX
  87. RET
  88. ADDOFFSETTOES_DI:
  89. PUSH BP
  90. MOV BP,OFFSET ADDOFFSETTODS_SI
  91. L100:
  92. XCHG DS,ES
  93. XCHG SI,DI
  94. CALL BP
  95. XCHG DS,ES
  96. XCHG DI,SI
  97. POP BP
  98. RET
  99. #IF !INTERN_CMARK0
  100. INTERN_CMARK0 EQU 01H
  101. INTERN_CMARK1:
  102. PUSH BP
  103. MOV BP,SP
  104. MOV BX,06H
  105. SUB CH,[BP+SI]
  106. SUB AH,[BX+SI]
  107. DEC SP
  108. DEC CX
  109. INC DX
  110. XOR AL,041H
  111. CMP B[02820H],DH
  112. INC BX
  113. SUB W[BX+SI],SP
  114. INC DX
  115. CS AND B[BP+DI+043H],DL
  116. DEC AX
  117. INC BP
  118. DEC BP
  119. DEC BP
  120. INC BP
  121. PUSH DX
  122. AND B[BP+SI],CH
  123. SUB CH,[BP+SI]
  124. POP DX
  125. MOV SP,BP
  126. POP BP
  127. RET
  128. #ENDIF
  129.